﻿<!-- #include file="mymin.asp" -->
<title>会员管理</title></head><body><div class='main400'>
<%
w systemMsgRoot

Dim id,msg,rs,delmem,status
id=getN("id",1)

If id<>1 Then
	msg="<br/><a href=""msg.asp?sid="&sid&"&amp;id="&id&""">发送消息</a>"
	status="<br/><a href=""status.asp?sid="&sid&"&amp;id="&id&""">修改状态</a>"
	' delmem="<br/><a href=""delmember.asp?sid="&sid&"&amp;id="&id&""">删除会员</a>"
End If

set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select top 1 id,name,regtime,regip,logtime,logip,sex,birthday,money,points,experience,hu_level,status from 74hu_user where id="&id,myconn,1,1
If Not rs.eof	Then
	w "<table><tr><td>会员ID</td><td>"&rs("id")&_
		"</td></tr><tr><td>用户名</td><td>"&nowml(rs("name"))&_
		"</td></tr><tr><td>状态</td><td>"&getStatus(rs("status"))&_
		"</td></tr><tr><td>性别</td><td>"&getSex(rs("sex"))&_
		"</td></tr><tr><td>生日</td><td>"&rs("birthday")&_
		"</td></tr><tr><td>等级</td><td>"&rs("hu_level")&_
		"</td></tr><tr><td>"&bbsMoney&"</td><td>"&rs("money")&_
		"</td></tr><tr><td>"&bbsPoint&"</td><td>"&rs("points")&_
		"</td></tr><tr><td>经验</td><td>"&rs("experience")&_
		"</td></tr><tr><td>注册时间</td><td>"&rs("regtime")&_
		"</td></tr><tr><td>注册IP</td><td>"&rs("regip")&_
		"</td></tr><tr><td>最近登录</td><td>"&rs("logtime")&_
		"</td></tr><tr><td>最近登录IP</td><td>"&rs("logip")&"</td></tr></table>"& msg &_
		"<br/><a href=""points.asp?sid="&sid&"&amp;id="&id&""">修改积分</a>"&_
		"<br/><a href=""password.asp?sid="&sid&"&amp;id="&id&""">修改账户</a>"&status&delmem
Else
	w "没有此会员！"
end if
rs.close
set rs=nothing

%>
<br/>提示：新版取消会员删除功能，会员直接加黑即可。会员加黑后，所有帖子，回复不可见，无法发帖，发信息等<br/>
----------<br/><a href="member.asp?sid=<%=sid%>&amp;">[会员总管]</a>
<%
call bbsLast
%>